#### II Replication ####
### purpose: replicating figure 5 ####
# installing packages ----

list.of.packages = c('ggplot2')
new.packages <- list.of.packages[!(list.of.packages %in% 
                                     installed.packages()[,"Package"])]

if(length(new.packages)) install.packages(new.packages)

# loading packages ----

suppressPackageStartupMessages(
  {
    library(ggplot2)
  }
)

# loading in data ----
fascore_dt <- readRDS("~data/fig_data_fascore.RDS")

# Figure 5 ----
f5 <- ggplot(fascore_dt, aes(fascore)) +
  geom_histogram()+
  theme_classic() +
  facet_grid(~cong)

ggsave(plot = f5, 
       filename = "~figures/figure5_fascore_hist.png",
       width = 12, height = 6, dpi = 600)
